home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / mathtchr.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  7KB  |  209 lines
  1. 1 REM  *** THE MATH TUTOR AND TESTOR ***:
  2. 2 REM        *** WRITTEN BY ***         :
  3. 3 REM      *** CARL M. LOCKMAN ***      :
  4. 4 REM       *** FLUSHING N.Y. ***       :
  5. 5 REM       *** FEBRUARY 1988 ***       :
  6. 6 REM  *** SEND E-MAIL TO SUPERTECH3 ***:
  7. 9 GOSUB40500
  8. 10 REM ADDITION TEST 100-180
  9. 11 REM SUBTRACTION TEST 200-280
  10. 12 REM MULTIPLICATION TEST 300-380
  11. 13 REM DIVISION TEST 400-480
  12. 20 PRINT"[147]":POKE53281,15:POKE53280,12
  13. 25 PRINTTAB(5)"  CARL LOCKMAN'S MATH TEACHER [146]"
  14. 26 PRINTTAB(5)" CHOOSE THE MATH TUTOR OR TEST"
  15. 27 PRINTTAB(5)"     YOU WOULD LIKE TO RUN"
  16. 28 PRINTTAB(5)"[158]   TUTOR              TEST
  17. 29 [153][163]5)"SYS   USRUSRUSRUSRUSR              USRUSRUSRUSR
  18. 30 PRINTTAB(2)"[158] 1- ADDITION        5- ADDITION"
  19. 31 PRINTTAB(2)"[158] 2- SUBTRACTION     6- SUBTRACTION"
  20. 32 PRINTTAB(2)"[158] 3- MULTIPLICATION  7- MULTIPLICATION"
  21. 33 PRINTTAB(2)"[158] 4- DIVISION        8- DIVISION"
  22. 34 PRINTTAB(7)"ENTER ONE NUMBER 1 - 8"
  23. 50 GETZZ$:IFZZ$=""THEN50
  24. 51 IFZZ$="1"THEN9000
  25. 52 IFZZ$="2"THEN9500
  26. 53 IFZZ$="3"THEN10000
  27. 54 IFZZ$="4"THEN10500
  28. 55 IFZZ$="5"THEN100
  29. 56 IFZZ$="6"THEN200
  30. 57 IFZZ$="7"THEN300
  31. 58 IFZZ$="8"THEN400
  32. 100 REM ADDITION TEST 100-180
  33. 105 INPUT"ENTER LARGEST NUMBER IN PROBLEMS";LA
  34. 106 C=0
  35. 110 A1=INT(LA*RND(1))+1
  36. 120 A2=INT(LA*RND(1))+1
  37. 130 PRINTCHR$(147):POKE53281,15:POKE53280,11
  38. 132 QN=QN+1:IFQN<=100THEN135
  39. 135 PRINTTAB(11)"[144]QUESTION # "QN
  40. 140 PRINT"     CORRECT [146] "C"[150]   INCORRECT [146] "I
  41. 145 PRINTTAB(10)"HOW MUCH IS "A1"+"A2
  42. 150 RE=(A1+A2)
  43. 155 PRINT
  44. 160 INPUT"WHAT'S THE ANSWER";ES
  45. 165 IFES=RETHENPRINT:PRINT" RIGHT [146]":F=0:GOTO5005
  46. 170 PRINT"";:PRINT"[150]             WRONG [146]"
  47. 175 PRINT"   THE CORRECT ANSWER IS "RE
  48. 180 GOTO6005
  49. 200 REM SUBTRACTION TEST 200-280
  50. 205 INPUT"ENTER LARGEST NUMBER IN PROBLEMS";LS
  51. 206 C=0:I=0:TQ=0
  52. 210 S1=INT(LS*RND(1))+1
  53. 220 S2=INT(LS*RND(1))+1
  54. 230 PRINTCHR$(147):POKE53281,15:POKE53280,11
  55. 232 QN=QN+1:IFQN<=100THEN235
  56. 235 PRINTTAB(11)"[144]QUESTION # "QN
  57. 240 PRINT"     CORRECT [146] "C"[150]   INCORRECT [146] "I
  58. 245 PRINTTAB(10)"HOW MUCH IS "S1"-"S2
  59. 250 RE=(S1-S2)
  60. 255 PRINT
  61. 260 INPUT"WHAT'S THE ANSWER";ES
  62. 265 IFES=RETHENPRINT:PRINT" RIGHT [146]":F=0:GOTO5005
  63. 270 PRINT"";:PRINT"[150]             WRONG [146]"
  64. 275 PRINT"   THE CORRECT ANSWER IS "RE
  65. 280 GOTO6005
  66. 300 REM MULTIPLICATION TEST 300-380
  67. 305 INPUT"ENTER LARGEST NUMBER IN PROBLEMS";LM
  68. 306 C=0:I=0:TQ=0
  69. 310 M1=INT(LM*RND(1))+1
  70. 320 M2=INT(LM*RND(1))+1
  71. 330 PRINTCHR$(147):POKE53281,15:POKE53280,11
  72. 332 QN=QN+1:IFQN<=100THEN335
  73. 335 PRINTTAB(11)"[144]QUESTION # "QN
  74. 340 PRINT"     CORRECT [146] "C"[150]   INCORRECT [146] "I
  75. 345 PRINTTAB(10)"HOW MUCH IS "M1"X"M2
  76. 350 RE=(M1*M2)
  77. 355 PRINT
  78. 360 INPUT"WHAT'S THE ANSWER";ES
  79. 365 IFES=RETHENPRINT:PRINT" RIGHT [146]":GOTO5005
  80. 370 PRINT"";:PRINT"[150]             WRONG [146]"
  81. 375 PRINT"   THE CORRECT ANSWER IS "RE
  82. 380 GOTO6005
  83. 400 REM DIVISION TEST 400-480
  84. 405 INPUT"ENTER LARGEST NUMBER IN PROBLEMS";LD
  85. 406 C=0:I=0:TQ=0
  86. 410 D1=INT(LD*RND(1))+1
  87. 420 D2=INT(LD*RND(1))+1
  88. 430 PRINTCHR$(147):POKE53281,15:POKE53280,11
  89. 432 QN=QN+1:IFQN<=100THEN435
  90. 435 PRINTTAB(11)"[144]QUESTION # "QN
  91. 440 PRINT"     CORRECT [146] "C"[150]   INCORRECT [146] "I
  92. 445 PRINTTAB(10)"HOW MUCH IS "D1"/"D2
  93. 450 RE=(D1/D2)
  94. 455 PRINT
  95. 460 INPUT"WHAT'S THE ANSWER";ES
  96. 465 IFES=RETHENPRINT:PRINT" RIGHT [146]":GOTO5005
  97. 470 PRINT"";:PRINT"[150]             WRONG [146]"
  98. 475 PRINT"   THE CORRECT ANSWER IS "RE
  99. 480 GOTO6005
  100. 4900 PRINT"     CORRECT [146] "C"[150]   INCORRECT [146] "I:RETURN
  101. 5005 C=C+1:IFC<=25THENGOSUB4900
  102. 5006 GOTO8000
  103. 6005 I=I+1:IFI<=25THENGOSUB4900
  104. 6006 GOTO8000
  105. 7000 PRINT"[147]":POKE53281,0:POKE53280,0
  106. 7005 TQ=C+I:PC=C/TQ*100
  107. 7010 PRINT"          YOUR FINAL SCORE
  108. 7011 [153]"SYS    OUT OF "TQ"SYS QUESTIONS YOU HAVE"
  109. 7020 [153]"       "C" RIGHT WAIT   "I"DEF WRONG WAIT "
  110. 7030 [153]"      THAT IS A SCORE OF "PC "%"
  111. 7039 [153]"                                     WAIT"
  112. 7040 [153]"         PRESS (M) FOR MAIN MENU     WAIT"
  113. 7044 [153]"         PRESS (E) TO END PROGRAM    WAIT"
  114. 7045 [153]"                                     WAIT"
  115. 7050 [161]ED$:[139]ED$[178]""[167]7050
  116. 7055 [139]ED$[178]"M"[167]10
  117. 7066 [139]ED$[178]"E"[167][153]"CONTLOAD":[151]53281,6:[151]53280,14:[128]
  118. 8000 [153][163]9)"ANOTHER PROBLEM Y OR N"
  119. 8005 [161]ED$:[139]ED$[178]""[167]8005
  120. 8008 [139]ED$[178]"Y"[167]8080
  121. 8010 [139]ED$[178]"N"[167]7000
  122. 8080 [139]ZZ$[178]"5"[167]110
  123. 8081 [139]ZZ$[178]"6"[167]210
  124. 8082 [139]ZZ$[178]"7"[167]310
  125. 8083 [139]ZZ$[178]"8"[167]410
  126. 9000 [153]"LOAD":[151]53281,12:[151]53280,0
  127. 9010 [153]"      CARL LOCKMAN'S MATH TEACHER WAIT"
  128. 9020 [153]"SYS            ADDITION TUTOR  WAIT"
  129. 9022 [153]"SYS              A + B = C
  130. 9030 PRINT"  ENTER 2 NUMBERS THEN PRESS RETURN"
  131. 9040 INPUT"[144] ENTER A=";A
  132. 9041 INPUT"[145] ENTER B=";B
  133. 9050 C=A+B:PRINT"           "A" + "B" = "C
  134. 9060 PRINT"                                    [146]"
  135. 9061 PRINT"          ANOTHER PROBLEM ?         [146]"
  136. 9062 PRINT"                                    [146]"
  137. 9063 PRINT"            PRESS Y OR N            [146]"
  138. 9064 PRINT"                                    [146]"
  139. 9065 PRINT"      PRESS (M) FOR MAIN MENU       [146]"
  140. 9066 PRINT"                                    [146]"
  141. 9070 GETED$:IFED$=""THEN9070
  142. 9075 IFED$="Y"THEN9100
  143. 9080 IFED$="N"THENPRINT"[147][154]":POKE53281,6:POKE53280,14:END
  144. 9085 IFED$="M"THEN10
  145. 9100 IFZZ$="1"THEN9000
  146. 9110 IFZZ$="2"THEN9500
  147. 9120 IFZZ$="3"THEN10000
  148. 9130 IFZZ$="4"THEN10500
  149. 9500 PRINT"[147]":POKE53281,12:POKE53280,0
  150. 9510 PRINT"      CARL LOCKMAN'S MATH TEACHER [146]"
  151. 9520 PRINT"[158]            SUBTRACTION TUTOR  [146]"
  152. 9522 PRINT"[158]              A - B = C
  153. 9530 [153]"  ENTER 2 NUMBERS THEN PRESS RETURN"
  154. 9540 [133]"STOP ENTER A=";A
  155. 9541 [133]"ON ENTER B=";B
  156. 9550 C[178]A[171]B:[153]"           "A" - "B" = "C
  157. 9560 [137]9060
  158. 10000 [153]"LOAD":[151]53281,12:[151]53280,0
  159. 10010 [153]"      CARL LOCKMAN'S MATH TEACHER WAIT"
  160. 10020 [153]"SYS          MULTIPLICATION TUTOR  WAIT"
  161. 10022 [153]"SYS              A X B = C
  162. 10030 PRINT"  ENTER 2 NUMBERS THEN PRESS RETURN"
  163. 10040 INPUT"[144] ENTER A=";A
  164. 10041 INPUT"[145] ENTER B=";B
  165. 10050 C=A*B:PRINT"           "A" X "B" = "C
  166. 10060 GOTO9060
  167. 10500 PRINT"[147]":POKE53281,12:POKE53280,0
  168. 10510 PRINT"      CARL LOCKMAN'S MATH TEACHER [146]"
  169. 10520 PRINT"[158]            DIVISION TUTOR  [146]"
  170. 10521 PRINT"[129]         NOTE: / = DIVIDED BY
  171. 10522 [153]"SYS              A / B = C
  172. 10530 PRINT"  ENTER 2 NUMBERS THEN PRESS RETURN"
  173. 10540 INPUT"[144] ENTER A=";A
  174. 10541 INPUT"[145] ENTER B=";B
  175. 10550 C=A/B:PRINT"        "A" / "B" = "C
  176. 10560 GOTO9060
  177. 40500 PRINT"[147]":POKE53281,0:POKE53280,0
  178. 40510 FORX=1TO25:CUR$=CUR$+CHR$(17):NEXTX
  179. 40790 VT=3:B$="[152]                                       ":GOSUB50060
  180. 40800 VT=4:B$="[152]     [166][166]   [166][166]   [166][166][166][166]   [166][166][166][166][166]  [166]   [166]     ":GOSUB50060
  181. 40810 VT=5:B$="[152]     [166] [166] [166] [166]  [166]    [166]    [166]    [166]   [166]     ":GOSUB50060
  182. 40820 VT=6:B$="[152]     [166]  [166]  [166]  [166][166][166][166][166][166]    [166]    [166][166][166][166][166]     ":GOSUB50060
  183. 40830 VT=7:B$="[152]     [166]     [166]  [166]    [166]    [166]    [166]   [166]     ":GOSUB50060
  184. 40840 VT=8:B$="[152]     [166]     [166]  [166]    [166]    [166]    [166]   [166]     ":GOSUB50060
  185. 40841 VT=9:B$="[152]                                       ":GOSUB50060
  186. 40849 VT=16:B$="[152]                                      ":GOSUB50060
  187. 40850 VT=17:B$="[152] [166][166][166][166][166] [166][166][166][166] [166][166][166][166] [166][166][166][166] [166]  [166] [166][166][166][166] [166][166][166][166]  ":GOSUB50060
  188. 40860 VT=18:B$="[152]   [166]   [166]    [166]  [166] [166]    [166]  [166] [166]    [166]  [166]  ":GOSUB50060
  189. 40870 VT=19:B$="[152]   [166]   [166][166][166][166] [166][166][166][166] [166]    [166][166][166][166] [166][166][166]  [166][166][166][166]  ":GOSUB50060
  190. 40880 VT=20:B$="[152]   [166]   [166]    [166]  [166] [166]    [166]  [166] [166]    [166] [166]   ":GOSUB50060
  191. 40890 VT=21:B$="[152]   [166]   [166][166][166][166] [166]  [166] [166][166][166][166] [166]  [166] [166][166][166][166] [166]  [166]  ":GOSUB50060
  192. 40891 VT=22:B$="[152]                                      ":GOSUB50060
  193. 40900 VT=12:B$="   2+2=4   5-3=2   5X5=25  25/5=5      ":GOSUB50060
  194. 40910 VT=13:B$="[158]   6+6=12  9-3=6   3X3=9   15/5=3      ":GOSUB50060
  195. 40920 VT=14:B$="   9+7=16  8-6=2   3X9=27  21/3=7      ":GOSUB50060
  196. 40930 T=T+1:IFT<=3THEN40900
  197. 40940 VT=12:B$="                                       ":GOSUB50060
  198. 40950 VT=13:B$="      WRITTEN BY  CARL M. LOCKMAN      ":GOSUB50060
  199. 40960 VT=14:B$="                                       ":GOSUB50060
  200. 40970 FORT=1TO2500:NEXT:RETURN
  201. 50060 REM FROM CENTER LINE
  202. 50070 M=LEN(B$)
  203. 50080 IFM/2<>INT(M/2)THENB$=B$+" ":M=M+1
  204. 50090 FORN=1TOM/2
  205. 50100 PRINTCHR$(19);LEFT$(CUR$,VT-1);
  206. 50110 PRINTSPC(21-N)LEFT$(B$,N);RIGHT$(B$,N);
  207. 50120 NEXTN
  208. 50130 RETURN
  209.